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USING THE DX980 OPERATING SYSTEM 
USER/OPERATOR GUIDE 


The JCL for all utilities in this manual follow each utility. 
The JCL is included so that the user can modify the utility's 


resources to accommodate his particular requirements. 


All operator responses are underlined throughout this supple- 
ment. It assumes the user/operator is using the ASR. If using a 
CRT, the user is to key in only the underlined portions of each 
command. 


a = carriage return. 


USING A CRT 


ITS 
The Interactive Terminal Subsystem (ITS) provides simplified 
concurrent communication between the DX980 system and a CRT 
or terminal. 

LOGON 
When communication is to be established between ITS and a 
terminal, the terminal user must enter a LOGON command to 
gain access to ITS facilities. The format of the LOGON 
command is as follows: 

LOGON <USERID> <ACCTNO> 
- USERID is an alpha numeric string, limited to 6 characters, 
the first of which must be alphabetic. 
- ACCTNO is a positive integer that must be less than 32,768 
LOGON example: LOGON ANAME 1. 

If the last CRT user did not LOGOFF, this gives an error 
message (invalid command). If so, the user should LOGOFF 
(see LOGOFF command), then LOGON. 
Any other special instructions for CRT users will be noted 
with the JOB being run. 

LOGOFF 


The LOGOFF command returns the terminal to the inactive state. 


ASMBLR (ASSEMBLE) 


The general assembler, SAPG, translates 980 symbolic assembly 
language into object language acceptable to the 980 computer. 
During pass 1, a symbol table is generated as the source 
program is read. Pass 2 generates the object output and 
program listing using both the source program and the gene- 
rated symbol table. For more details, see: Model 980 
Computer Assembly Language Programmer's Reference Manual, No. 
943013-9701. 


To use the utility ASMBLR: 


EXAMPLE: Source from disc file, object to card punch, listing 


to line printer: 
Hit <ESC>for //. 


KEY IN: //JOB name SYSTEM. 
//RUN ASMBLR FSRC=(userid,filename) DOBJ=CP1. 


EXAMPLE: Source from cards, no object, listing to mag tape, 
(using mag tape drive 1; with write ring on mag 


tape). 


KEY IN: 
//JOB name oe, 
//RUN ASMBLR DIN=CR1 DOBJ=DUMMY DLST=MT1. 


ASMBLR (980 ASSEMBLER) JCL 


/REPLACE ASMBLR .ASSEMBLE. 
/EXEC OBJ=(1,SYSTEM,ASMBLR) MEM=(300,5000,1000) PRTY=(1,15); 

/ TIME=-1 TIME:=TIM | MEM:=MEM PRTY : PRI 

/ASSIGN 0 DUMMY DEVICE:=DMSG SHARE .SYSTEM MESSAGE 
/ASSIGN 4 DUMMY DEVICE:=DCON SHARE:=SCON . CONTROL/MESSAGE 
/ASSIGN 5 DISC1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 .SOURCE INPUT 
/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1 .SOURCE LIST/ERROR 
/ SHARE:=SLST MAXTRACK=100 

/ASSIGN 7 DISC1 DEVICE:=DOBJ FILE:=FOBJ REPLACE:=ROBJ; 

/ ACCESS:=COBJ  NEW:=NOBJ ALLOCATE :=LOBJ .OBJECT OUTPUT 

/ ACCESS= (ANY, ANY,ANY,ANY) LINKSEQ BUFFERS=1 

/ ALLOCATE=(1,0,64,10) FILE=(USERO1, ASMOUT) 

/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ACCESS= (ANY, ANY, ANY, ANY) ALLOCATE=(5, 300, 256,50) .SOURCE SCRATCH 
/END | 


ASMCND (ASSEMBLE WITH CONCORDANCE ) 


This utility is the same as ASMBLR except that a concor- 


dance is also generated. 


EXAMPLE : Source from disc file, object to card punch, and 


assembly listing to line printer. 


Hit «ESC? for //. 


KEY IN: 
//JOB name SYSTEM. 
//RUN ASMCND FSRC=(userid,filename) DOBJ=CP1. 
EXAMPLE: Source from cards, object to card punch, and 
assembly listing to line printer. 
KEY IN: 


//JOB name SYSTEM. 
//RUN_ASMCND DIN=CR1 DOBJ=CP1. 


ASMCND (980 ASSEMBLER WITH CONCORDANCE) JCL 


/REPLACE ASMCND 
/EXEC OBJ=(1,SYSTEM,ASMBLR) MEM=(300,5000,1000) PRTY=(1,15); 


/ TIME=-1 TIME:=TIM MEM: =MEM PRTY :=PRI 
/ASSIGN O DUMMY 

/ASSIGN 4 DUMMY DEVICE:=DCON SHARE:=SCON 

/ASSIGN 5 DISC1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 
/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1 


/ SHARE:=SLST MAXTRACK=100 
/ASSIGN 7 DISC1 DEVICE:=DOBJ FILE:=FOBJ REPLACE:=ROBJ; 

/ ACCESS:=COBJ NEW:=NOBJ ALLOCATE:=LOBJ 

/ | ACCESS= (ANY ,ANY,ANY,ANY) LINKSEQ BUFFERS=1 
/ | ALLOCATE=(1,0,64,10) FILE=(USERO1,ASMOUT) 


/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ACCESS= (ANY, ANY, ANY, ANY) ALLOCATE=(5 , 300, 256,50) 
/EXEC OBJ=(1,SYSTEM,CONCRD) MEM=(3,15000,1000) PRTY=(1,15); 
/ TIME=-1 PRTY:=PRI 

/ASSIGN 16 DISC1 FILE=(TEMP,SCRL) BUFFERS=1. 
/ASSIGN 6 SYSOUT DEVICE:=DLST BUFFERS=1. 


/END. 


ASSEMBLE. 


SYSTEM MESSAGE 

. CONTROL/MESSAGE 
.SOURCE INPUT 
.SOURCE LIST/ERROR 


.OBJECT OUTPUT 


. SOURCE SCRATCH 


ERROR CODES 


If an error is detected in Pass 1, the message appears 


before the listing. 


the message is printed adjacent to the source line in 


question. 


A total number of errors encountered in the 


assembly is given at the end of the listing. 


MESSAGE 
NUMBER 


10 


11 


12 


16 


SAPG ERROR MESSAGES 


MESSAGE MEANING (AND CORRECTIVE ACTION) 


FIELD SZ 


UNDF OP 


LONG SYM 
MDF 0/F 
i> 16 
CAD > 10 
UNDF SYM 
MDF SYM 


RELOC 


SYM OVF 


BAD NUM 


IMP R/D 


X RF USE 


IXB ERR 
OPD ERR 


ADR MODE 


Address beyond reach (use @ for extended format) 


codes ) 

Symbol > 6 characters 

OPD or FRM multiply defined (rename label) 
FRM fields contain more than 16 bits 
Address expression > 10 elements 


Symbol not defined (label probably omitted) 


Symbol multiply defined (rename labels) 


arithmetic expression, or ORG statement can use 


only one relocatable label) 


Too many symbols have been defined (cut out symbols 


or divide program) 


Numeric element not valid (properly define item in 


label or address field) 


A REF or DEF symbol has been used improperly (REF 
symbol defined inside and outside the program; DEF 


| 
| A relocation error fuse only relocatable label 
| 
| 
| 


symbol not defined in the program) 


catable expression 


Address mode error (improper use of IXB field) 


Illegal addressing mode (improperly written add 
a a ret ee 


| 
| 
| No such OPD format number 


Undefined operation code (check list of valid op 


A REF symbol has appeared invalidly in an unrelo- 


ress) | 


If the error is detected in Pass 2, 


| 
| 


in 


| 
| 
| 
| 
| 
| 
| 
| 


EXAMPLE OF TI 980 HEADER CARD 
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If used, first record of source. 


CPYTPE (COPY TAPE TO TAPE) 
This program copies tape to tape and verifies. It indicates 
the number of files copied and verified on the ASR. Default 
is from MT1 to MT2. 
This example will copy and verify to double EOF. 
To use: Hit <HSC> for //. 
KEY IN: 
//JOB name SYSTEM.) 
/ /RUN eee 


Answer to questions on ASR. 


User Mode No. = 134 UID-System Name=SC 
COPY/VERIFY MAG TAPE UTILITY 


Enter 1 to copy & verify; 2 to verify only 1 


Enter type of copy 


EOM - up to end of medium 
2EOF - up to double end of file 
N - up to and including file N, where N is 


a file number 2EOF 


When terminated, the program indicates on the ASR: 


PASS ONE COMPLETE: N files copied 
NORMAL TERMINATION: N files verified 


(N = number of files on tape) 


CPYTPE (COPY TAPE TO TAPE) JCL 


/REPLACE CPYTPE. 
/EXEC OBJ=(1,SYSTEM,CPYTPE) MEM=(1,>4100,1000) MEM:=MEM; 
/ PRTY=(1,15) TIME=-1 OBJ:=OBJ PRTY:=PRTY 
/ASSIGN 0 SC. —_—DEVICE:=DERR 

/ASSIGN 4 SC.‘ DEVICE:=DCON FILE:=FCON BUFFERS=1 

/ASSIGN 5 MT1 _DEVICE:=DIN 

/ASSIGN 7 MT2 DEVICE:=DOUT 

/END 


. ERRORS 

. CONTROL 
. INPUT 

. OUTPUT 


DXCOPY (FILE COPY UTILITY) 


The DXCOPY utility copies data from any type of file or device 
to any other type file or device. DXCOPY also generates keys 
for key indexed files. 


Listing is defaulted to dummy and DOUT and DIN both are de- 


faulted to DISC1. The default for DCON is dummy which defaults 


DXCOPY to 'SOURCE' as the control parameter. For further in- 
formation on DXCOPY consult section 8.7 of the DX980 General 
Purpose Operating System Programmer's Guide (Manual No. 
943005-9701 ) 


Hit ESC) for //. 


* KEY IN: 
//JOB name SYSTEM. 
//RUN DXCOPY FIN=(userid,filename) DOUT=DUMMY ; 
.» DLST=SYSOUT DCON=SC. 
aaa ES? 
Answer BEEP with: SOURCE ae (NO PERIOD HERE! ) 
EXAMPLE: To copy a binary file from card reader to card punch. 
//JOB name StOrEM. 
//RUN DXCOPY DIN=CR1 DOUT=CP1 DCON=SC. 
BEEP: RELOBJ (NO PERIOD HERE! ) 


> 


* FROM CRT USE DCON=TERMIO 
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DXCOPY (FILE COPY UTILITY) JCL 


/REPLACE DXCOPY 


. GENERAL PURPOSE COPY. 


/EXEC OBJ =(1,SYSTEM,DXCOPY) MEM=(300,4000,1500) PRTY=(1,15); 


4 TIME=-1 PRTY 
/ASSIGN 0 DUMMY DEVICE 
/ASSIGN 5 DUMMY DEVICE 
/ASSIGN 6 DUMMY DEVICE 
/ MAXTRACK=200 
/ASSIGN 7 DISC1 DEVICE 


ACCESS: 


RELREC 


:=PRI MEM: =MEM 

:=DMSG 

:=DCON FILE:=FCON BUFFERS=i 
:=DLST FILE:=FLST BUFFERS=1 


:=DOUT  FILE:=FOUT REPLACE:=ROUT 
=COUT KEYLEN:=KOUT ALLOCATE :=LOUT 
:=REL INDEXED:=IND  LINKSEQ:=LIN 

:=GOUT BUFFERS:=BOUT BUFFERS=2 


ACCESS= (ANY, ANY, ANY, ANY) KEYLEN=6 
ALLOCATE=(1,0,128, 10) LRECL=64 


/ 
/ 
/ LRECL 
/ 
/ 


/ASSIGN 8 DISC1 DEVICE 
/ END 


:=DIN FILE:=FIN BUFFERS=1 


. OUTPUT 


. INPUT 


ERROR MESSAGES 
. CONTROL/MESSAGE 
. LISTING 


19 


LIST (80/80 LIST) 


Default from cards to line printer, ASCII source. Terminates 
on /*. Hit<ESCsfor //. 


KEY IN: 


//JOB name SYSTEM. 
//RUN LIST. 


Example of List using mag tape input: 


//JOB name SYSTEM. 
//RUN_LIST DIN=NT1. 


This would use mag tape drive 1 as input, with output to 


line printer. 
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LIST (80/80 LIST) JCL 


/REPLACE LIST .LIST CARD TO SYSOUT. 

/EXEC OBJ=(1,SYSTEM,DXCOPY) MEM=(300,6000,2000) PRTY=(1.15); 

/ TIME=-1 MEM:=MEM PRTY:=PRI OBJ: =OBJ 

/ASSIGN 0 DUMMY DEVICE:=DMSG .ERROR MESSAGES 
/ASSIGN 5 DUMMY DEVICE:=DCON . CONTROL/MESSAGE 
/ASSIGN 6 SYSOUT DEVICE:=DLST FILE:=FLST BUFFERS=1; . LISTING 

/ ALLOCATE:=LLIST MAXTRACK=200. 

/ASSIGN 7 DUMMY DEVICE:=DOUT FILE:=FOUT REPLACE: =ROUT; . OUTPUT 


/ BUFFERS=2 BUFFERS:=BOUT LINKSEQ:=LIN RELREC:=REL; 
f INDEXED: =IND ACCESS= (ANY , ANY , ANY, ANY) ; 

/ ALLOCATE=(1,0,128,10) ALLOCATE:=LOUT KEYLEN=6; 

/ KEYLEN:=KOUT LRECL=64 LRECL:=GOUT 


/ASSIGN 8 CR1 DEVICE:=DIN FILE:=FIN BUFFERS=1 . INPUT 


LISTINGS ON WIDE PAPER 


Whenever a listing is needed on wide paper (132 col.), first 


switch the log from the Centronics printer by: 
Hit the <ESC> key for //. 


KEY IN: 
//JOB name SS) 
//RUN mOeeee 
Run the utility desired and after the listing is removed 
from the printer, switch the log back from the ASR to the 


Centronics printer by: 


KEY IN: 
//RUN LOG2LP. . 


NOTE: From CRT, the last step would be to key in: 
LOGOFF. 
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LOG2ZSC AND LOG2LP JCL 


/REPLACE LOG2SC. 
/EXEC OBJ=(1,SYSTEM,CHGLOG) MEM=(30,200,200) PRIV PRTY=(1,1) TIME=-1, 


/ASSIGN 1 SC. 
/END. 


/REPLACE LOG2LP. 
/EXEC OBJ=(1,SYSTEM,CHGLOG) MEM=(30,200,200) PRIV PRTY=(1,1) TIME=-1. 


/ASSIGN 1 LP2. 


MANDEL (COPY TAPE TO TAPE) 


This copies from mag tape to mag tape, copying aii files to 
double End of File. (If there is not a double EOF, the 
master tape will run off the end of the tape. It must have 


a double EOF). After copying all files, both tapes rewind, 


and the copy is verified. When the copy is verified the tapes 


rewind and unload. A message on the ASR indicates to the 
operator/user to swap the tapes and hit carriage return on 
ASR. The tapes will verify a second time, rewind, unload 
and the Job terminated. The listing off the line printer is 


returned with both tapes. 
On ASR hit¢<ESC) key for //. 


KEY IN: 
//JOB name ew) 
//RUN MANDEL. 


NOTE: Swapping the tapes and reverifying is done to ensure 
that the copy can be read on another drive other than 


the one it was written on. 
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MANDEL (COPY TAPE TO TAPE) JCL 


/REPLACE MANDEL 
/EXEC OBJ=(1,SYSTEM,CPYTYPE) MEM=(1,>4100, 1000) 
/ PRTY=(1,15) TIME=-1 PRTY :=PRTY. 
/ASSIGN 0 SYSOUT DEVICE:=DALL DEVICE:=DERR. 
/ASSIGN 4 DISC1 FILE=(SYSTEM,CPYCN1) BUFFERS=1; 


DEVICE:=DALL FILE:=FCON DEVICE:=DCON. 


/ASSIGN 5 MT1  DEVICE:=DIN. 
/ASSIGN 7 MT2  DEVICE:=DOUT. 

/EXEC OBJ=(1,SYSTEM,SWAP) MEM=(1,164,150); 

/ PRTY=(1,15) TIME=-1 PRTY:=PRTY. 

/ASSIGN 0 SC. —DEVICE:=DALL + DEVICE:=DSWAP 
/EXEC OBJ=(1,SYSTEM,CPYTPE) MEM=(1,)4100, 1000); 
/ PRTY=(1,15) TIME=-1 PRTY:=PRTY« 
/ASSIGN 0 SYSOUT DEVICE:=DALL DEVICE:=DERR 
/ASSIGN 4 DISCi FILE=(SYSTEM,CPYCN2) BUFFERS=1; 
/ - DEVICE:=DALL FILE:=FCON DEVICE: =DCON 
/ASSIGN 5 MT1 _—DEVICE:=DIN. 

/ASSIGN 7 MT2  DEVICE:=DOUT. 

/END. 


. CONTROL 


. SWAP MESSAGE 


. ERR LISTING 


. CONTROL 


MT960 (980 TO 960 MAG TAPE CONVERSION) 


This is a generalized version of the program "PRP960"'. 
It generates a mag tape on the DX980 system which is 


in the proper format to serve as input to any 960 systen. 


If DCON is left at dummy in the JCL, the default record 
length value is 80 (# bytes/record). 


If DCON is assigned to SC or TERMIO, the operator/user 
specifies a record length (valid length is 1-256 bytes). 


Normal run from disc file to mag tape. 
On ASR hit <ESC> key for //. 


KEY IN: 
//Job name System. 


//RUN MT960 FIN=(userid, filename ) 


Note: If using cards as original source into the 
DX980 System, the "!" and " J" characters 
have opposite Hollerith codes in the 980 
and 960 computer systems. 


/REPLACE MT960 


MT960 (980 TO 960 MAG TAPE CONVERSION) JCL 


.986 TO 960 MAG TAPE FORMAT CONVERSION. 


/ EXEC OBJ=(1, SYSTEM,MT960) ; 

/ MEM: =MEM MEM= (30,643, 1000) ; 
/ PRTY:=PR1 PRTY=(1,15); 

/ TIME=-1 

/ASSIGN 1 DUMMY DEVICE:=DCON 

/ASSIGN 4 DISC1 DEVICE:=DIN: 

/ FILE:=FIN BUFFERS=1 


/ASSIGN 5 MTI 
/END 


DEVICE : =DOUT 


.OPERATOR'S CONSOLE. 


~DATA INPUT. 
-MAG TAPE OUTPUT. 


MULTI (MULTIPLE COPY LISTING PROGRAM) 


This produces multiple copies on the line printer (one after 


another). Each copy begins at the top of the page. 
Default is dise file to line printer. 
Hit <ESC>for //. 


KEY IN: 

//JOB name SYSTEM. 
* //RUN MULTI Benn Cusersd ti tename)-) 
A message is indicated on the ASR asking the operator/user 
"number of copies desired.""' Respond with a value greater 
than O, from 1 to 3. 


On CRT KEY IN: 
RUN MULTI FIN=(userid,filename) ee) 


(If ITS is running) 


/REPLACE MULTI 


/EXEC 

/ 

i 

/ ASSIGN 
/ ASSIGN 
/ 

/ ASSIGN 
/ ASSIGN 
/ 

/ 

/ 


/ 
/ ASSIGN 


/ ASSIGN 
/ ASSIGN 


/ 
/ ASSIGN 


/END 


0 DUMMY 
5 DISC1 


6 DUMMY 
7 DISC1 


-OBJ=(1, SYSTEM, MULTI) 


1 SC 
4 DISC1 


MULTI (MULTIPLE COPY LISTING) JCL 


GENERAL PURPOSE MULTIPLE COPY LISTING PROGRAM. 
OBJ= (1, SYSTEM, DXCOPY) 


MEM : =MEMDX 
PRTY :=PRIDX 
DEVICE :=DXMSG 
DEVICE : =DXCON 


BUFFERS : =BUFF 
ACCESS : =ACC 
ALLOCATE : =ALL 
DISC1 
FILE:=FIN; 
BUFFERS : =BUFF 


MEM : =MEM 
PRTY:=PRI 


DEVICE :=DCON 


BUFFERS : =BUFF 


6 SYSOUT DEVICE:=DLST; 


BUFFERS : =BUFF 
FILE:=FLST; 
MAXTRACK: =MAXT 


TIME=-1; 
MEM= (300, 5000, 2000) ; 
PRTY=(1,15) 


FILE= (SYSTEM, DL980C) ; 
BUFFERS=1 


NEW INDEXED KEYLEN=2; 
FILE= (TEMP ,MULTI) ; 
BUFFERS=2 ; 


ACCESS= (ANY , ANY , ANY , ANY) ; 


ALLOCATE= (1,0,128, 200) 
DEVICE: =DIN; 


BUFFERS=2 
TIME=-1; 
MEM= (30,400, 1000) 5 


PRTY=(1, 15) 


FILE= (TEMP ,MULTI) ; 
BUFFERS=2 


BUFFERS=2 ; 


MAXTRACK=100 


.DXCOPY PROGRAM. 
.DXCOPY ERRORS. 
.""SOURCE NOKEYS" 
. COMMAND . 

.DXCOPY LISTINGS. 


~ORIGINAL STORAGE, 


.ORIGINAL INPUT. 


«MULTIPLE COPY PROGRAM. 


«OPERATOR'S CONSOLE. 


. BUFFERED INPUT. 


. LINE PRINTER OUTPUT. 


AM 


OBJSEQ (OBJECT SEQUENCER ) 


This program sequences object cards. Default is from card 
reader to card punch. Increments by 1. Increment number 
cannot be changed. No control card needed, but PART NUMBER 
MUST BE SUPPLIED BY USER if needed. The part number can be 


blanks or a 6 digit number. Program terminates on /*. 


If a reply to a device (card reader, card punch, or line 
printer) must be made, the operator must return the ASR 


(SC) to operator's mode by: 


Hold down <CTRL> key and <O> key, then hit <ESC> key for //. 


See note for ASR messages. 


The sequenced deck will be punched as follows: 


col 1 64 reproduced as is from original 

col 65 blank 

col 66 71 part number 

col 72 76 blank 

col 77 80 sequence numbers with leading zeros 


To run this utility: 
Hit <ESC>key for //. 


KEY IN: 
//JOB_name SYSTEM. 
//RUN OBJSEQ -) 


INPUT PART NUMBER (6 DIGITS) OR SPACE: 123456 
LOAD DUPLICATE DECK, KEY GO 
GO 
OBJECT SEQUENCE - VERIFY COMPLETED 


** SEE NOTE ON NEXT PAGE 


OBJSEQ (EXAMPLE USING A DISC FILE AS INPUT, CARDS AS OUTPUT) 
Hit<ESC@>+key for //. 


KEY IN: 
//JOB_name SYSTEM. 
//RUN_OBJSEQ DIN=DISC1 FIN=(userid, filename). | 


Answer part number questions by entering a 6 digit part number 
or blank. Read in duplicate cards after punched for verifi- 


cation when indicated by message on ASR. 


NOTE: If any replies to a device (card reader, card punch 
or line printer) have been made during the job, to 


get the messages, the operator must return the SC to 


user mode by: 


Hold down <CTRL> key and hit U on console keyboard. 


OBJSEQ (OBJECT SEQUENCER) JCL 


/REPLACE OBJSEQ .980 OBJECT CARD SEQUENCING (WITH OPTIONAL PART #). 


/EXEC  OBJ=(1,SYSTEM, OBJSEQ) 
/ 

/ 

/ 

/ASSIGN 4 SC  DEVICE:=DMSG 
/ASSIGN 5 CR1 DEVICE:=DIN 
/ASSIGN 6 CR1 DEVICE:=DVER 
/ASSIGN 7 CP1 DEVICE:=DOUT 
/ASSIGN >16 DISC1 


/ 
/ 
/ 
/ 
/ 


/END 


MEM= (30,1000, 1000); 
PRTY=(1,15) PRTY:=PRI; 
TIME=-1 MEM: =MEM; 
OBJ: =OBJ 


FILE:=FIN BUFFERS=1 
FILE:=FVER BUFFERS=1 
FILE:=FOUT BUFFERS=1 
FILE= (TEMP, SYSTEM) ; 
BUFFERS=1 NEW; 
ACCESS= (ANY, ANY, ANY, ANY) ; 
LINKSEQ ALLOCATE: =ALL; 
ALLOCATE= (1,0, 32,10) 


.OPERATOR ANSWERS 
-ORIGINAL OBJECT INPUT 
. INPUT FOR VERIFICATION 
. SEQUENCED OUTPUT 


. SCRATCH FOR STORAGE 
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SEQNCR (SOURCE SEQUENCER) 


This program sequences source records. Default is from cards 
to cards. Terminates on /*. Control card is supplied by the 
user. If a reply to a device (card reader, card punch, or 

line printer) must be made, the operator must return the ASR 


(SC) to operator's mode by: 


Hold down <CTRL> key and <O> key, then hit <ESC> key for //. 


See note for ASR messages. 


This program increments by 10. The beginning number can be 


changed, but the increment of 10 cannot be changed. 
To use the sequencer: Hit <ESC> for //. 


KEY IN: 
//JOB name SYSTEM. 
/ /BUN_SEQNCR_DMES=SC. 


Answer questions on ASR. 


ENTER CONTROL RECORD ON LUN 4, HIT C/R, 
READY SOURCE, HIT C/R 
LOAD DUPLICATE DECK, HIT C/RY 

RE-READ DUPLICATE DECK (YE/NA) ? N (Y if re-verification is wanted) 


gS le ee ee 


ERRORS: 


If any cards are mis-punched, a duplicate card is punched. 
Replace the mis-punched one with the duplicate. When the deck 
has all been read in, a message on the ASR asks if the opera- 
tor/user wants to re-verify. *Answer with yes ~M or no (Ny 
If yes, reload the duplicate deck in again, if no, JOB termi- 


nates. 


one 


NOTE: If any replies to a device (card reader, card punch or 
line printer) have been made during the job, to get the 


control messages, the operator must: 


Hold down <CTRL> key and hit U on console keyboard. 


Using SEQNCR to sequence from a disc file: 


//JOB name SYSTEM. 
//RUN SEQNCR DMES=SC DSRC=DISC1 PsRcu (userid, filename). 


This program does not put a /* out after punching the sequenced 
deck. Because of this, the verify step will not terminate 
normally. The operator must put a /* card in the card reader 
to terminate the Job after all of the duplicate deck has read 


in, 


The last record of the file will be punched twice, so the 


second record Should be discarded. 


The control card is needed for sequencing from any device. 


ip xe) 


mo 
ro 
ro 
> 
La] 
ma 
ft!) 
rm 
™~ 
™. 
mo 
ss 
pPo 
m™ 


CBB BR eee se meee an ae eres gk sae Be Be BO a ea ce sg se eB ee es ee ee | 
Baad decd gga ed edad ahaa aaa a dada ahead a dda asda ead addd ddd dgdd Sddad lagged 
Siete SeaDoo eee Po Deb o Oeo le foal dude bd Ga wag, ae ie a dike 
GHG SECOSHESE AHHH S ESE GE OER CS HOSE OS HBEC RSCG ECOSERB ESSE GORS ORE LECERAGECEG FACES GG: Ss 


PEEL ET EAIN IEEE BPTI ECE PA ee PEt A PCPA aa TAD 
PO tt Cee ee ee ee eee ee ee ee ee 
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EXAMPLE OF CONTROL CARD FOR SOURCE SEQUENCER 


BEGINNING # 
PART # | | 


P2326 £5 26.27 OR 29 20 51 a2 Bs 38 35 AB AT 2431 Sg Ad bd 14 45 die AU 39 49:5 57 92 53 54 55 56 57 SB 59 GO GT AZ 63 G4 85 GBT GA S979 71 727214 18 1677 Ge 78 40 


W1 ee ee ee ee se ee DP 


o009 
1 
cee e eee eee kkk e kkk kkk kk kkk kkk] 2 2822228222227 2 2708720 kk 2229929999927 | 
| 
| 
| 


COOOOHEIODODAODNODOKNOTHNNONOINNODONOODNOODOOODND N 
| 


3399333333333339393333339333333333333333359359333333333333333333333332 3333333933333 
Mata AAA AAA AMAA AAA EAA GAGA AAALAC EE AAAAAAAIAGAAAAAAAAAAAAAAAGAGAGA AAG4G AAA 
TEE E EEC E SEE CELE EES EEE EERE LE PEE CEES EESECLSELELEL ECE ECL Eee eee ee cere eee 
BECEERBEESESEREHERRE ES EGCG EE SEES EGS SSSHEBEBEREGGESGGGSSEBSEGESGSREGEEG GEEEEGRRS 
IAT ITE ETE TEL rE ELTA LAAT PET ELE Ed 1 PAE | 
BERERCSGRSSRRRRBBRDERERGRESIGKGSSHBRESHRRLIBBEBERBIBERBRBRBRBRHRIERBSRREHRBHa cae 
eee ea gaagggadeg ee Jag39999 ee ey RA DOSE CCE EORCREESESEEREELOOSEOEECALES 


PR ghee $9934 5+ 5: 57 38 19 45 di 424 4 $445 46 47 42-49 80 SH 52 53:56 55 56 8° 5a So che" 62 83.24 85 G8 B7 Bnd 1671 fe fg DATE IB Pe 7H 48 


SEQUENCE EXAMPLE 


CRAKE RE RARER RERERER REESE YDUR SOURCE DECK 


ee 


37 35 39:40 td Az 43 44 45 48 47 48 49 50 St 52 $2 54 55 56 57 58 59 60 61 62 63 64 65 G6 G7 G8 G9 7071 72797475 715 4; 7873 80 


a al ee ees We a te i 
A OS DI SO a a0 a Sa a a i J a i I 2 a ee | 


g 
33 


0 
6 
| 


vudg 


sp kath wp ARB A dL @eeAaAR AE Aaa LL AREA D Qo bP oe te td bt ea’ 


geregey Hanes ase Poo eed ooo ee ea DC ee eC Rac a ie 


“ATR (827 Be 2 B2 dod. JE 36 27 98 4G 4b 27 43 4 45 2G AG 4B 49 60 StS? 52:54 35 S59 57 52 59 80 61 62 63 £4 55 6857 ES BL LUST T7377 Pea 8a 
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SEQNCR (SOURCE SEQUENCER) JCL 


/REPLACE SEQNCR. 

/EXEC OBJ=(1,SYSTEM,SEQNCR) MEM=(3,1000,1000) PRTY=(1,15) TIME=-1 MEM:=MEM; 
/ PRTY :=PRI 

/ASSIGN 0 DUMMY DEVICE:=DMES 

/ASSIGN 4 CR1  DEVICE:=DCON FILE:=FCON BUFFERS=1 


/ASSIGN 5 CR1 DEVICE:=DSRC FILE:=FSRC BUFFERS=1 

/ASSIGN 6 CPi DEVICE: =DCOUT 

/ASSIGN 7 CP1 DEVICE: =DOUT 

/ASSIGN 8 DISC1 FILE=(TEMP,SCRL) NEW BUFFERS=1 LINKSEQ; 

/ ACCESS= (ANY , ANY, ANY, ANY) ALLOCATE= (1,300, 256, 300) 


/ASSIGN 9 CRI DEVICE : =NSRC 
/END 


VERIFY (RECORD BY RECORD VERIFICATION PROGRAM) 

Default run command takes both original and duplicate files from 
the card reader, lists at most 10 bad records, and assumes in- 

put is OBJECT. Gives a listing with a total of records investi- 
gated, and satisfactory verification noted when all records match. 
Operator to return listing with job. 

All records are 80 bytes. 


To use hit <ESC> for //. 


(FOR OBJECT) Key in: //JOB name SYSTEM.) 
/ {RUN VERIFY 


Answer beep with: DATA Oe (DO NOT PUT A PERIOD HERE! ) 


To have all errors detected and listed: 


(OBJECT ) //JOB name SYSTEM. 
//RUN VERIFY DERR=CRI1, 


ee 


Answer beep with: DATA NOKEYS 9 (NO PERIOD HERE! ) 


FOR SOURCE: 
//JOB name SYSTEM.) 
//BUN VERIFY ASCII=CR1.) 


Answer beep with: SOURCE NOKEYS.y (NO PERIOD HERE! ) 


This example lists 10 records. 


oa 


NOTE: 


DERR (LUNO 1) is defaulted to dummy. This causes the 
program to automatically terminate after 10 errors. If 
LUNO 1 is assigned to any other device other than dummy, 
all errors are listed. DERR may be assigned to any device 


Since no actual I/O is executed with DERR. 


ASCII (LUNO 2) is used to indicate whether the records 
are of Binary or ASCII coding. If left at "Dummy" input 
is binary. If ASCII is assigned to some device other 
than DUMMY, input is executed using the "READ ASCII" 
command. (Default is to DUMMY. ) 


The DXCOPY utility is first executed to buffer the 
“original” to a temporary file. This permits verifying 
inputs from the same device, such as the card reader. If 
cards are to be used as input, both the original and dupli- 


cate decks must end with /*. 
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VERIFY (RECORD-BY-RECORD VERIFICATION) JCL 


/REPLACE VERIFY .RECORD-BY-RECORD VERIFICATION PROGRAM. 


/ EXEC OBJ=(1,SYSTEM,DXCOPY) TIME=-1; 
/ MEM : =MEMDX MEM= (300, 5000, 2000) ; 

7 PRTY :=PRIDX PRTY=(1,15) .DXCOPY 

/ASSIGN 0 DUMMY DEVICE:=DXMSG .DXCOPY ERRORS. 

/ASSIGN 5 SC DEVICE:=DCON .DXCOPY COMMANDS. 

/ASSIGN 6 DUMMY .DXCOPY LISTINGS. 

/ASSIGN 7 DISC1 BUFFERS:=BUFF BUFFERS=2; 

/ NEW KEYLEN=2; . STORAGE 

/ INDEXED; 

/ FILE= (TEMP ,VERIFY) ; 

/ ACCESS= (ANY , ANY, ANY, ANY) ; 

/ ALLOCATE=(1, 0,128, 200) 

/ASSIGN 8 CR1  DEVICE:=DOR; 

/ FILE:=FORG; 

/ BUFFERS : =BUFF BUFFERS=2 .ORIGINAL INPUT 
/ EXEC OBJ=(1, SYSTEM, VERIFY) TIME=-1;.VERIFY PROG. 

/ _ PRTY:=PRI PRTY=(1,15); 

i MEM : =MEM MEM= (30, 2000, 2000) 

/ASSIGN 1 DUMMY DEVICE:=DERR .STOP AFTER 10 ERRORS. 

/ASSIGN 2 DUMMY DEVICE:=ASCIi .ASCII INPUT IF ASSIGNED. 

/ASSIGN 6 SYSOUT DEVICE:=DLST .ERROR LISTINGS. 

/ASSIGN 8 DISC1 BUFFERS:=BUFF BUFFERS=2; 

/ FLLE= (TEMP, VERIFY) ; 

/ ACCESS= (ANY, ANY , ANY, ANY) ; 

/ ALLOCATE=(1,0,128,200) 

/ASSIGN 9 CR1  DEVICE:=DDUP; 

/ FILE:=FDUP; 

/ BUFFERS : =BUFF BUFFERS=2 .DUPLICATE INPUT 


/ END 


APPENDEX A 


DEVICE REPLIES 


CARD READER 


If the card reader stops before it is supposed to, there 
has been either a data error, a read error, or the Job 


has been rolled. 


1. If there is a data error, a message is printed on the 
ASR (SC). In that case, re-read the last card read and 
reply to the card reader. (must be from ASR) 


2. If there is a read check error, (the read check LT on 
card reader will be on), re-read the last card and reply 


to the card reader message indicated on the ASR (SC). 


Reply to the card reader by: 


Hit <ESC> for //. 
KEY IN: 


//RE CR1 Y. (SEE NOTE) 


yr 


Now it will read more cards. 
3. To see if your job has been rolled, get status: 


KEY IN: 
//ST. 
OR: //DS_n. n=JOB number 
(SEE APPENDIX B) 


NOTE: Reply to terminate the job if needed at this time by: 


KEY IN: 
//RE_CRIN. | 
ys 


CARD PUNCH 
What to do when it stops. 
Is it out of cards? If so, put more in, go to clear CP. 


Has the Job been rolled? Check STATUS to see if it has 
been rolled. Hit <ESC> on ASR for //. 


KEY IN: 
//ST.y for status of all Jobs in the system. 
OR: //DS_n. for detailed status of a Job if the 
Job number is known. n=Job number. 
(SEE APPENDIX B) 


Did you have a data error? Look for message on ASR. Clear 
card punch. Check last card punched before replying to CP. 


CLEAR CARD PUNCH 


1. HIT <ON LINE> BUTTON 
2. HIT <RESET> 

3. HIT <CLEAR> 

4. REPEAT STEPS 2 AND 3 
5. HIT <ON LINE> 


NOTE: The <ON LINE> indicator should be the only button lit. 
If any other buttons are lit, or the <ON LINE> button 
is blinking, repeat steps 1-5. If there are still any 
others on, get help. 


ANd 


LINE PRINTER PROBLEMS 


To stop a bad listing on the line printer, or if the paper jams: 


FIRST STOP THE LINE PRINTER FROM PRINTING. 
TURN OFF LINE, WAIT FOR MESSAGE TO COME UP ON ASR (LP1 OFF 
LINE), TURN ON LINE, THEN HIT ESCAPE KEY (Reply must be 


from ASR only) for //. 


To continue the same listing: 


KEY IN: 


//BOS SKIP N (-N for number of lines to back 


4 
up to; N for number of lines to Skip forward on 
listing. The position is relative to the line 
being printed when BOS acts on the received BOS 
command. Backspacing a number of lines greater 
than the number already printed from the data 

set by using the SKIP option is equivalent to the 
RESTART option; skipping ahead for more lines 
than the lines remaining to be printed is equi- 


valent to the CANCEL option. 


An example of skipping forward 100 lines would be: 


//BOS SKIP 100.) 


//RE_LP1 YES 


g 100 lines would be: 


wae 


//BOS SKIP -100) 


//RE_LP1 YES) 


A3 


To begin a listing over (page 1) instead of skipping lines, 


KEY IN: 
//BOS RESTART 
//RE LP1 YES. 


This command will start at page one of the listing currently 
on the line printer. If the listing in question has printed 
the last banner, the job has been deleted in the spooler and 


the Job will have to be re-run. 
To cancel the current listing: 


KEY IN: 
//BOS CANCEL 7 
//RE LP1 YES: 


This will cancel the listing being printed now, and will 
begin the next listing on the spooler. When this is done, 


the listing will be deleted and the Job is gone. 
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APPENDIX B 


STATUS 


STATUS 
The status command is used to determine the status of Jobs 


being run in the system. Look for the Job name keyed in at 


the time a Job was entered, next to the name is the job number. 
Status example: 


//STATUS - The following is displayed on the ASR or CRT. 


JOBNAM.JOBNUM.STEP..STATE..... PRs oPRV ...cbbescsEX...cULs..T IME: USED. 
Dx980 =O 1 RUNNING 0 Y 0000 5SC52 6FDA 2190 1934 
ITS 1 1 RUNNING 1 Y 7028 9475 A091 200 802 
BOS Z 1 RUNNING 2 N AOB6 A3E4 A6D2 2394 75 
RRA 68 1 RUNNING 14 N A6E5 CBE2 DF6A 29 575 
MIKEB 60 1 ROLLED 15 N A6E2 D5C2 DD9Z2 410 945 
JOB NO 60 STEPS 2 - 2 READY 


END OF DISPLAY 

articular Job can be done. 
eaereeed the job named MIKEB in the above status example. 
//DS 60. 

JOB NO= 60 IS RUNNING AT PRIORITY 15 


USER TASK ID= 0000-RUNNING 
END OF DISPLAY 


A Job can be cancelled by: 


//CA 60.) 
JOB NUMBER 60 CANCELLED 


ee 


This cancelled Job number 60, named MIKEB. A Job cannot be 
cancelled if it is rolled. It must be running or ready, to be 
cancelled. Any job can be cancelled from the system console, 
but if the user wishes to cancel a job from a CRT, the job 


must have been entered on that CRT. 


APPENDIX C 


Dk 98 0 ERROR CODES 


Dx98@ ERROR CODES 
AS OF @1/13/77 


{ eOUT OF PARTITION REFERENCE IMPLIED BY PARAMETERS OF AN SVC CALL 
2 «JOB EXTENSION AREA TOO SMALL 

4 eNO SPACE IN OSCA 

5 “ILLEGAL NUMBER OF PARAMETERS IN SVC LIST 

6 #Il/0 ATTEMPTED ON NON®ASSIGNED LUNO 

7 eI/0 ATTEMPTED WITHOUT OPEN 

8 »DUPLICATE OPEN ON SAME LUNO 

9 eHAIT CONTROL LIST ERROR FOUND ON USER SUSPEND 
10 ePRIORITY ERROR 

if @CPU TIME EXCEEDED 

12 eILLEGAL USER POST 

13 e ILLEGAL INSTRUCTION 

14 2A NONwEXISTENT SVC WAS ISSUED 

15 eUSER HAS REGUESTED ACCESS TO A PRIVILEGED SVC 
16 eILLEGAL SVC ARGUMENT eOQUTSIDE USER PARTITION 
17 “PTR TO SVC ARG LIST OUTSIDE USER PARTITION 

18 eINVALIO DEVICE I O 

19 eNO SPACE IN PCB 
20 eNO SYSTEM LUNO @ 141 


21 eUSER FILE DIRECTORY OVERFLOW 
22 eMASTER FILE DIRECTORY OVERFLOW 

23 ePREVIQUSLY DEFINED USER ID 

24 eILLEGAL USER ID 

25 eATTEMPT TO DELETE SYSTEM DISC MFO 

26 =INVALID ABNORMAL JOB TERMINATION CODE 

27 »UNDEFINED FILE 

28 *UNDEFINED USER ID 

29 eATTEMPT TO REPLACE PREV ASSIGNED FILE 

30 #PREVIOUSLY WEFINED FILE 

31 *INVALIO FILE TYPE OR PHYSICAL RECORD LENGTH > MAX SIZE ALLOWED 
2 #INSUFFICIENT TRK SPACE ON DEFINE 

33 eINSUFF, CONTIG, TRK SPACE ON DEFINE 

34 “EXCEEDED DISC SIZE ON DEFINE 

35 @ZERO KEY LENGTH FOR DEFINE 

36 eREADY J88 FILE BAD 

37 eATTEMPT TO DELETE A SHARED FILE 

38 ew INVALID FILE DISPOSITION CODE 

39 mDEVICE OFFLINE 

40 wATTEMPT TO SHARE UNSHARABLE OEVICE 

44 sATTEMPT TO SHARE BLOCKED DEVICE 

42 wATTEMPT TO ASSIGN EXCL A SHARED PASSED RESOURCE 
43 @OPERATOR CANCELLATION 

44 #T00 MANY JOB STEPS 

45 eINVALID JCB 

46 eINVALIO INPUT LDT 

a7 *JOB NO/STEP NO, NOT IN SYSTEM 

4a #JOB NAME NOT IN SYSTEM | 

49 ATTEMPT TO ILLEGALLY ACCESS FILE 

50 ePOTENTIAL RESOURCE DEADLOCK DUE TO INCOMPLETE PASSING 
54 eINVALID JS8 SIZE SPECIFIED 

$2 eATTEMPT TO DEASSIGN UNASSIGNED LUNO 

53 ~TOO MANY JOB STEPS (>15) IN ONE JOB STRING 

54 @PARENT JO8 ENDED BEFORE JOB SYRING STARTED 


55 JMeLOAN MOOULE TOO BIG FOR SPECIFIED USER SPACE 
56 JMeNO JOB INITIATION SYSTEM TASK FOR JOB 

37 JMeLOAD MODULE LOAD NO GOOD 

3&8 JMeATTEMPT TO ASSIGN TO OISC OIRECTLY 

59 JM=DEASSIGNMENT OF OPEN DEVICE/FILE 


C1 


63 SUGMeSYSTEM OUTPUT QUENE OVERFLOW 
6{ SOQMeTOO MANY OUTPUT FILES 


71 


=MEMORY PARITY ERROR 

"MEMORY PROTECT ERROR w ANDRESSING ERROR 

ePRIVILEGED INSTRUCTION VIOLATION 

eRESOURCE STACK OVERFLOW 

@BYTE RELOCATION ADDR BAD IN LOAD MODULE 

=MIP NUMBER BAD FOR LOAD OR LOADR 

eLOAD OR LOADR EXTENDS BEYOND USER MEM 
BPSeCAN NOT ALLOCATE INPUT DEVICE (REASON*MEMORY OR DEVICE NOT AVAILABLE) 
BPS=#=READ ERROR ON INPUT DEVICE 


72BPSOC@ILLEGAL OR MISSING "JOB" COMMAND 
73BPSOC@ILLEGAL RUN COMMAND 


BPSeILLEGAL DATA COMMAND 
BPS=TOO MANY INPUT DATA FILE 
BPSeNO OF INPUT DATA FILES UNMATCHED WITH NO OF ASSIGNED INPUT DATA FILES 
BPSeDATA COMMAND UNMATCHED WITH INPUT ASSIGNMENTS 
BPS=OUTPUT QUEUE ERROR w REINITIALIZE QUEUE TO USE BOS 
JM=JOBSTRING/STEP NOT IN ROLL FILE DIRECTORY 
JMeNO SPACE AVAILABLE IN ROLL FILE 
JMeINSUFFICIENT ROLLABLE MEMORY 
JMeROLL PERFORMED NORMALLY 
JM=ROLL FILE CLORBERED 
BPS@DATA ERROR ON LINE PRINTER 
BPSeRENO OF FILE ENCOUNTERED WHILE SKIPPING RECORDS 
JMeREQUEST FOR MORE MEMORY THAN IN FREE MEMORY 
JMeDEVICE/FILE REQUESTED AT RUN TIME NOT AVAILABLE 
JM=INVALID JOB STEP NUMBER IN JSB 
eILLEGAL NUMBER INPUT 
@eITLLEGAL COMMAND 
JMaTONQ MANY JOBS IN THE SYSTEM 
eLUNO LOT NOT FOUND 
#“NOT A RR FILE 
JCLeUSER@mID SPECIFIED FOR PROCENURE LIBRARY DOES NOT EXIT 
JCL=PROCEDURE LIBRARY DOES NOT EXIST UNDER SPECIFIED USEReID 
JCLeUSER CANIT GAIN ACCESS TO PROCEDURE LIBRARY BECAUSE OF INTEGRITY CODE 
JCLeSPECIFIED PROCEDURE DOES NOY EXIST IN PROCEDURE LIBRARY 
JCLeHARDWARE FAILURE WHILE ATTEMPTING READ FROM SPECIFIED PROCEDURE LIB 
JMeATTEMPTED 19 USE FILE OF RESTRICTED USER ID 
OCeHAROWARE IT/0 ERROR IN OP, COMMUNICATIONS 
NCmINVALIO. MESSAGE IO 
OCs=INVALID OPERAND IN OP COMMUNICATIONS 
OCwINVALID ARGUMENT LIST IN OP, COMMUNICATIONS 
OC#JNVALIO JOB NUMBER PASSED IN OP,COMMUNICATIONS 
OC*ATTEMPT TO OFFLINE SYSTEM DISC OR SYSTEM CONSOLE 
OCeNO SPACE IN DSCA OR JEA 
OCeINVALID OP,COMMUNICATIONS COMMAND 
NC=JNB NUMBER NOT FOUND BY OP, CUMMUNICATIONS 
OCeIN OJCBPR, INVALIO SIZE REQUIRED FOR '//JOB! JSB 
OC@INVALID NUMBER USEN FOR SKIP COMMAND TO BATCH OUTPUT SPOOLER 
OCeUNDEFINED COMMAND GIVEN TO BATCH OUTPUT SPOOLER 
OC=ATTEMPT TO CANCEL A ROLLED JOB 
OC@ILLEGAL COMMAND FOR RESERVE OPERATOR COMMUNICATIONS 
IOeCEVICE NOT READY 
IO=CONTROLLER ERROR 
10=D0ATA ERROR 
JO-CONTROLLER AUSY ERROR 
TOeWRITE PROTECT ERROR 
IO-EOR ERROR 
IOPREADe APTERe WRITE ERROR 
TO-DEVICE OFFLINE 
IO-ILLEGAL OP eCODE 
IO=DEVICE TIMEOUT (DEVICE DIN NOT RESPOND) 
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233 
234 
235 
236 
237 
238 
239 
240 
241 
243 
249 
25a 
251 
252 
254 
256 
257 
258 
4ay 
42 
403 
404 
405 
406 
4a7 
408 
429 
418 
41 
412 
413 
414 
415 
416 
417 
418 
419 
420 
42} 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
433 
434 
435 
436 
437 
439 
443 
444 
445 
446 
447 
448 
449 
450 


FM=eNO SPACE AVAILASLE ON DISC VOLUME 
FMeFILE FULL I/0 ERROR 
FMeATTEMPTED WRITE, LOGICAL RECORD =8 PHYSICAL RECORD @ OVERHEAD 
FMeHARDOWARE FATLURE ON OYSC VOLUME 
FMeINDEX, REPLACE ATTEMPTED ON NON@EXISTING KEY 
FMmEXISTING KEY FOUND ON 'WRITE! OPeCODE enOPERATION NOT PERFORMED 
FMmINOEX, WRITE/REPLACE ATTEMPTED ON NON@KEYED RECORD 
FMeINDEX, REPLACE ATTEMPTED ON KEYED RECORO 
FMeINDEX, REPLACE ATTEMPTED ON NULL DATA (NON@EXISTENT) 
FMeINOEX, REL@REC, NO KEY AFTER SEARCH 
FMeINVALIO FILE TYPE (NONwEXISTENT) 
FMe INSUFFICIENT TRACKS FOR ALLOCATION 
FMeINSUFFICIENT CONTIGUOUS TRACKS LEFT ON DISC VOLUME 
FMmALLOCATION EXCEEDS DISC VOLUME CAPACITY 
FMeUNABLE TO ALLOCATE BUFFERS BECAUSE OF JOB EXTENSION SIZE 
FMeJNSUFFICIENT NUMBER OF BUFFERS FOR ATTEMPTED OPERATION 
FMe@QPCODE IS EITHER NONSEXISTENT OR ILLEGAL 
FMeACCESS VIOLATION, INTEGRITY ERROR 
CSCNeOVERFLOW OF KEYWORD AREA 
CSCN*OVERFLOW OF PACKED STRING STORAGE 
CSCNeR,H,S, OF EXPRESSION OR TERM MISSING 
CSCNeILLEGAL EXPRESSION SUBSCRIPT 
CSCNeMISSING DELIMETER AFTER COMMANDO YO 
CSCNeNUMBER YS LARGER THAN 16 BITS 
CSCNwOPERAND STARTS WITH ILLEGAL CHARACTER 
CSCNwILLEGAL DIGIT IN DECIMAL NUMBER 
CSCNeMISSING DELIMTER BETWEEN OPERANDS 
CSCN#MISSING DELIMETER BETWEEN SUBSCRIPTS 
CSCNeJLLEGAL CHARACTER PRECEEDS COMMAND 
ITS@#RUN COMMAND DOES NOT CONTAIN A LABEL OR AN EXPRESSION 
CSCNeMISSING EQUAL SIGN IN ASSIGNMENT 
CSCNeRIGHT HAND SIDE OF ASSIGNMENT MISSING 
CSCNeMORE THAN ONE ao SIGN IN EXPRESSION 
CSCNmSIZE OF PACKED STRING «< @ CHARACTERS 
CSCN=UPPER BOUND ON KEYWORD AREA « | 
CSCNeNUMBER OF RESERVED LABELS «< @ 
CSCN@STARTING COLUMN FOR SCAN NOY IN RANGE (8179) 
JCLeFOR A NEW FILE, USER DIRECTORY NAME DIFFERS FROM CURRENT USER 
JCLeJSB MUST CONTAIN DEVICE INDEX, NOY THE POT ADDRESS 
JCLeDEVICE INDEX MUST BE «<® 255 
JCL=PHYSICAL RL, < KEYeLENGTH + 14 
JCL=FILE HAS BAD ACCESS CODE VALUE 
JCL=BOTH 'DELETE!' & 'PASS! SPECIFIED 
JCLeLOGICAL R,L, » PHYSICAL R,L. 
JCLeLOGICAL R,L, A MULTIPLE OF 32 
JCLeDEVICE NOT SPECIFIED OR INCORRECTLY SPECIFIES 
JCLeUSER ID NOY SPECIFIED 
JCLeFILE NAME NOY SPECIFIED 
JCLeILLEGAL FILE NAME SPECIFIED (UFO & MFO ARE NOT VALID) 
JCLe# PRIORITY LEVELS > 31 OR « 
JCL=JOB STEP PRIORITY >» 31 OR « 3} 
JCL*08J, VOLUMN ID IS > 207 OR « } 
JTLeTCH STACK SIZE < 1 WORD 
JCLeILLEGAL COMMAND APTER 'NDELETE! 
JCLeTIME LIMIT < 1 SECOND 
JCLe# PRIORITY LEVELS ¢ JOB STEP PRIORITY I8 >» 32 OR « 1 
JCL=-JO68 EXTENSION SIZE «<2 YCBR STACK SIZE + 15 WORDS 
JCLeINVALIO MEMORY PARAMETER 
JCLeVOL USER ID NOT INITIALIZED 
JCL=eVOLUMN FILE NOT INITIALIZED 
JCL=VOL USER ID OR FILE NAME > 6 CHARS 
JOCL@VOL PASSWORD >» 4 CHARS 
JCLekRONG & OF OPERANDS ON THE RIGHT SIDE OF AN EXPRESSION 
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451 
452 
453 
454 
4356 
457 
458 
459 
462 
464 
462 
463 
464 
465 
466 
467 
468 
469 
474 
471 
475 
476 


479 
48” 
461 
490 


528 
529 
356 
331 
332 
533 
$34 
535 
336 


JCL=OPERAND IS NOT A LABEL OR A SIIBSCRIPTED EXPRESSION 
JCLeOPERANO ON THE RIGHT SIDE IS NOT A LABEL OR A NUMBER 
JCL=BAD DEVICE NAME 

JCL=BLOCK SIZE « 1 

JCLeREDEFINITION OF LUN IN JOBSTEP 

JCL=PASSWORN > 4 CHARACTERS 

JCLeUSER ID OR FILE NAME > 6 CHARACTERS 

JCL=NUMBER BUFFERS «< 1 

JCLeREsINITIALIZATION OF JSB ITEM 

JCL#BAD LABEL FOR ACCESS CODE 

JCL@=INITIAL TRACKS « 1 

JCLeFIRST TRACK ADDRESS «< @ 

JCL=PHYSICAL RECORD LENGTH «< 32 

JCLePHYSICAL RL, NOT MULTIPLE OF 32 

JCL@MAX TRACKS « (INITIAL OR 1) 

JCLeLOUGICAL RECORD LENGTH «< { 

JCL=LUNO NUMBER NOT IN RANGE @A TO 254 

JCLeKEY LENGTH NOT IN RANGE 4 TO 30 

JCL=OPERAND DOESN'T START WITH LABEL 

JCLeKEYNAME ON THE LEFT SIDE OF AN EXPRESSION IN NOT DEFINED 
JCLeOVERFLOW OF KEYeENTRY TABLE 

JCLeOVERFLOW OF KEYeREFERENCE TABLE 

JCLeOVERFLOW OF KEYeCKARS TABLE 

JCL=DISC ERROR ON LUNO 4 

JCLeINDEX KEY NAME FOLLOWING 'CREATE! OR #REPLACE! » 6 CHARACTERS 
JCLeGREATER 31 ASSIGN CARDS IN THIS JOB STEP 
JCLe!CREATE! OR !REPLACE! NOT FOLLOWED BY INDEX KEY NAME 
JCLeDEV INDEX « 21 OR FILE VOL » 28 

JCLePHYSICAL R,L, (CHAR) < (KEYLEN # 2 # 14) 

JCLwFILE TYPE NOT SPECIFIEO WHEN NEEDED (COEFINE, ETC,) 
JCLeKEYNAMFE JS NOT IN RESERVED WORD LIST 


‘JCLe# OF ENTRIES IN TABLE PASSED TO 'CRLOOK! IS NEGATIVE 


JCLeSUBSCRIPTS APPEAR ON LHS OF EQUAL SIGN 

JCLaTRIED TO FETCH NONwEXISTANT RHS SUBSCRIPT 

JELeTRIED TO FETCH NONwEXISTANT OPERAND 

JCLe#I/0 ERROR ON LUNO 8 2, (ECHO PRINT) 

JCLwEOF, EOM, OR Y/0 ERROR ON LUNO 2 {, {(JCL IN) 

JCLeMISSING SLASH IN FIRST COLUMN OF JCL 

JCLeOVERRIDING KEY WORD ON RUN CARD DOES NOT EXIST FOR THIS PROCENURE 
JCLaNUMBER OF KEYeENTRIES IS NEGATIVE 

JCLeNUMBER OF KEYwENTRIES >» 19 ; 

JCL=NUMBSR OF KEYeREFERENCES < © OR > $9 

JCL=aNUMBER OF KEYeCHARACTERS NOT IN RANGE @ TO 120 

JCLeKEYeENTRY POINTS TO KEY REFERENCE WHICH IS NOT INITIALIZED 
JCLeKEYeENTRY FLAG INDICATES THAT NEITHER JCB NOR LOT IS BEING INITIALIZED 
JCLeLDOT NUMBER REFERENCE BY KEYeENTRY YS NOT IN RANGE 2 TO 34 
JCLePRODUCTION NUMBER NOT IN RANGE 3 TO 31 

JcLeJOB STEP NUMBER NOT IN RANGE 1 TO 15 

JCL=KEYe=CHARS HAS LESS THAN # CHARACTERS 

JCLeCHARACTERS OVERFLOW KEYeCHAR STORAGE 
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APPENDIX D 


DX98 0 DEVICES 


DEVICE TABLE 


ID TM ENBLD ~ EXTREG EXP #-SLOT DEVICE ‘TYPE 


KEY DEVNAM 


IT DUMMY FF 06 Y 0404  DBUS 0000 0002 

DD _—*DISC1 01 FF Y DMAC 0000 DS330 

DD  DISc2 02. FF N DMAC 0001 DS31 

MT MT1 1F FE Y DMAC 0002 

LP ss CP: 29 14 Y 4040  DBUS 0000 0006 

CR CRI 33. FE Y 1F1F | DBUS 0000 0004 | 
| PR PTR 3D = 3C Y 1018  DBUS 0000 0008 HS | 
| PP = PTP1 47 3C Y 1118  DBUS 0000 0005 HS | 
| LP LP4 2A OF Y DMAC 0005 
| LP —LP2 2B. OOF Y 5050  DBUS 0000 0007 
| cS CS11 65 3C Y 0505  DBUS 0000 0003 
' CS CS12 66 3C Y 0505  DBUS 0000 0003 
| DT Sc 15 ~~ FE Y 0505 DBUS 0000 0003 733 - CM | 

DT CRT1 16 FF Y 0606 DBUS 0001 0005 CRT - CM 

DT CRT2 17. FF Y 0707. DBUS 0000 0009 CRT - CM 

DT  CRT3 18 FF y 0808 DBUS 0000 OOOA CRT - CM 
| DT -CRT4 19 FF Y 0909 DBUS 0000 000B CRT - CM 

DT -_—‘*KEY1 1A FF Y OBOB  DBUS 0000 O000D 733 - CM | 
; MT = MT2 20 FE Y DMAC 0002 | 
| MT  MT3 21 FE N DMAC 0002 | 
| DT —CRTS 1B. FF Y ococ DBUS 0001 6006 CRT - CM | 
| DT  CRT6 1C FF Y ODOD DBUS 0001 0007 CRT - CM 
DT —CRT7 1D FF Y OEOE  DBUS 0001 0008 CRT - CM 


| SYSTEM DISC = DISC1 
LOGGING DEVICE = SC 


| SYSTEM CONSOLE = SC : 
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APPENDIX E 


JOB TERMINATION CODES 


JOB TERMINATION CODES 


When a job terminates, the system generates a message to the 


log which gives the termination code for that particular job. 


An example of a normal job termination: 


NO. =30 UID= MIKEB NAME=MIKEB- SUBMITTED 


NO. =30 UID= MIKEB NAME=MIKEB STEP=1 TERMINATED AT OFO3 


~ TERM CODE=0 TASK TIME= 0 5 21 377 MJAR=4067 MJEA=821 EX=9112 
STRING NO. = 30 TERMINATED 
* A term code other than O indicates abnormal job termination. 


See Appendix C for error codes. 
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the Austin DSD Computer Center. For information 
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